<script>on mouseUpvisual effect iris opengo to next cardend mouseUp</script>
</part>
<part>
<id>27</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>208</left>
<top>248</top>
<right>265</right>
<bottom>264</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>port</name>
<script></script>
</part>
<part>
<id>28</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>208</left>
<top>264</top>
<right>265</right>
<bottom>280</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>local port</name>
<script></script>
</part>
<part>
<id>29</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>22</left>
<top>229</top>
<right>94</right>
<bottom>281</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>2002</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>Open</name>
<script>on mouseUpglobal connectionIDif connectionID is not empty then exit mouseupput TCPActiveOpen(item 1 of field "address", field "port", ¬field "local port") into connectionIDif connectionID contains "fail" thenput "The Result:" && connectionIDput empty into connectionIDend ifend mouseUp</script>
</part>
<part>
<id>31</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>100</left>
<top>259</top>
<right>169</right>
<bottom>274</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>PassiveOpen</name>
<script>on mouseUpglobal connectionIDput TCPPassiveOpen(item 1 of field "address",field "port", ¬field "local port") into connectionIDif connectionID contains "fail" thenput "The Result:" && connectionIDput empty into connectionIDend ifend mouseUp</script>
</part>
<part>
<id>32</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>274</left>
<top>282</top>
<right>331</right>
<bottom>298</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>CrLf</name>
<script>on mouseUpset the hilite of bg button "CrLf" to trueset the hilite of bg button "Cr" to falseset the hilite of bg button "Nothing" to falseend mouseUp</script>
</part>
<part>
<id>33</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>274</left>
<top>296</top>
<right>331</right>
<bottom>312</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>Cr</name>
<script>on mouseUpset the hilite of bg button "Cr" to trueset the hilite of bg button "CrLf" to falseset the hilite of bg button "Nothing" to falseend mouseUp</script>
</part>
<part>
<id>34</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>274</left>
<top>310</top>
<right>331</right>
<bottom>326</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>Nothing</name>
<script>on mouseUpset the hilite of bg button "Nothing" to trueset the hilite of bg button "Cr" to falseset the hilite of bg button "CrLf" to falseend mouseUp</script>
</part>
<part>
<id>36</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>127</left>
<top>284</top>
<right>205</right>
<bottom>303</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Send Line</name>
<script>on mouseUpglobal connectionIDask "Line to send:" && connectionIDif it is not empty thenif the hilite of bg button "Cr" thenput return after itelse if the hilite of bg button "CrLf" thenput return & linefeed after itend ifTCPSend connectionID,itif the result is not empty then put "The Result:" && the resultif the optionKey is down thenput TCPRecvMsg(connectionID,1800,"2",10000) into newInputif newInput is not empty thenget rect of field "screen"get (item 4 of it) - (item 2 of it)put (it div (the textHeight of field "screen"))-1 into linesAvailget field "screen" & newInputput the number of lines in it into linesThereif linesThere > linesAvail thendelete line 1 to (linesThere-linesAvail) of itend ifput it into field "screen"end ifend ifend ifend mouseUp</script>
</part>
<part>
<id>37</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>23</left>
<top>303</top>
<right>334</right>
<bottom>327</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>New York</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>state</name>
<script></script>
</part>
<part>
<id>40</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>17</left>
<top>188</top>
<right>91</right>
<bottom>203</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>Clear Display</name>
<script>on mouseUpput empty into field "screen"end mouseUp</script>
</part>
<part>
<id>41</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>131</left>
<top>276</top>
<right>177</right>
<bottom>291</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>Close</name>
<script>on mouseUpglobal connectionIDsend mouseup to bg button "release"TCPClose connectionIDif the result is not empty then put "The Result:" && the resultend mouseUp</script>
</part>
<part>
<id>42</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>23</left>
<top>283</top>
<right>93</right>
<bottom>302</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>Close</name>
<script>on mouseUpglobal connectionIDTCPRelease connectionIDif the result is not empty then put "The Result:" && the resultput empty into connectionIDend mouseUp</script>
</part>
<part>
<id>45</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>97</left>
<top>246</top>
<right>334</right>
<bottom>303</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>Groups</name>
<script></script>
</part>
<part>
<id>46</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>354</left>
<top>267</top>
<right>399</right>
<bottom>283</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>P1</name>
<script></script>
</part>
<part>
<id>47</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>431</left>
<top>267</top>
<right>476</right>
<bottom>283</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>p2</name>
<script></script>
</part>
<part>
<id>48</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>394</left>
<top>187</top>
<right>441</right>
<bottom>202</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>Gnumber</name>
<script></script>
</part>
<part>
<id>49</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>458</left>
<top>210</top>
<right>503</right>
<bottom>226</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>LLines</name>
<script></script>
</part>
<part>
<id>50</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>247</left>
<top>187</top>
<right>393</right>
<bottom>203</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>Gname</name>
<script></script>
</part>
<part>
<id>51</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>229</left>
<top>25</top>
<right>496</right>
<bottom>185</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>11</textSize>
<textStyle>bold</textStyle>
<textHeight>14</textHeight>
<name>Lause</name>
<script></script>
</part>
<part>
<id>53</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>345</left>
<top>317</top>
<right>428</right>
<bottom>331</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>lang</name>
<script>on mouseupif bg field "lang" is "finnish" thenput "english" into bg field "lang"else if bg field "lang" is "english" thenput "automatic" into bg field "lang"else put "finnish" into bg field "lang"end mouseup</script>
</part>
<part>
<id>54</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>401</left>
<top>257</top>
<right>417</right>
<bottom>275</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>16692</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>up</name>
<script>on mouseUpget bg field "p1"put it+10 into bg field "p1"end mouseUp</script>
</part>
<part>
<id>55</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>401</left>
<top>274</top>
<right>417</right>
<bottom>292</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>3584</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>down</name>
<script>on mouseUpget bg field "p1"put it-10 into bg field "p1"end mouseUp</script>
</part>
<part>
<id>56</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>476</left>
<top>257</top>
<right>492</right>
<bottom>275</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>16692</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>down</name>
<script>on mouseUpget bg field "p2"put it+10 into bg field "p2"end mouseUp</script>
</part>
<part>
<id>57</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>476</left>
<top>274</top>
<right>492</right>
<bottom>292</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>3584</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>down</name>
<script>on mouseUpget bg field "p2"put it-10 into bg field "p2"end mouseUp</script>
</part>
<part>
<id>58</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>450</left>
<top>142</top>
<right>500</right>
<bottom>193</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>2478</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Say it</name>
<script>on mouseUpput bg field "lang" into langif lang is "automatic" thenif it contains " the " or it contains " am " or it contains " i " thenput "english" into langend ifif it contains " there " or it contains " no " thenput "english" into langend ifend ifget bg field "lause"if it is not empty thenif char 1 to 10 of it is not "In article" thenput first char of it into xif x >= "0" and x <= "9" thenelse if x Γëá "|" thenif x = ">" thendelete char 1 of it-- nopeus, korkeus, vaihtelu, voima, alun painotusif it is not empty thenif lang is "finnish" thenpuhuJanne ctoc("><"," ",it),1,-1,3,4,0elsespeak ctoc("><"," ",it),bg field "p1",bg field "p2"-10end ifend if--elseif lang is "finnish" thenpuhuKristian ctoc("><"," ",it),1,-1,3,4,0elsespeak ctoc("><"," ",it),bg field "p1",bg field "p2"end ifend ifend ifend ifend ifend mouseUp</script>
</part>
<part>
<id>59</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>450</left>
<top>91</top>
<right>501</right>
<bottom>139</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>16735</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Zippy</name>
<script>on mouseUpif visible of card field "Zippy" is false thenshow card field "Zippy"elsehide card field "Zippy"end ifend mouseUp</script>
</part>
<name>speaker</name>
<script>on idleglobal connectionID, cgroup--put the heapSpaceif connectionID is empty thenput "no connection" into field "state"if random(1000) > 995 then zippyexit idleend ifget TCPState(connectionID)put it into field "state"if it is not "established" then exit idle-- return,10,emptyput TCPRecvUpTo(connectionID,empty,60,empty) into newInputif newInput is not empty thenput ctoc("=-<?!*_;{}|[]\"&linefeed," .. ,äåöÄÅÖ ",newinput) ¬into newinputget field "screen" & newInputput number of characters of it into ccountif ccount > 25000 thenput empty into itend ifput it into field "screen"if newinput contains "NNTP" and it contains "server" then groupif newinput contains "request text separ" then readnextif newinput contains "420 No current article" then groupif newinput contains "421 No next article" then groupput ccount into bg field "Llines"end ifend idleon sktalk-- put number of lines of bg field "screen" into aput number of words of bg field "screen" into arepeat with i=1 to aput empty into lauseset lockscreen to truerepeat with k=1 to 100get word 1 of bg field "screen"if it is empty then exit repeatdelete word 1 of bg field "screen"put it & " " after lauseif last char of it is "." then exit repeatend repeatif lause is empty then exit repeatset lockscreen to falseget lauseput bg field "lang" into langif lang is "automatic" thenput "finnish" into langput itif it contains " the " or it contains " are " or ¬it contains " am " or it contains " i " or ¬it contains " you " thenput "english" into langend ifif it contains " there " or ¬it contains " no " or it contains " is "thenput "english" into langend ifend ifput ctoc("><"," ",it) into itput it & " (" & lang & ")" into bg field "Lause"if it is not empty then-- put langif char 1 to 10 of it is not "In article" thenput first char of it into xif x >= "0" and x <= "9" thenelseif x ≠ "|" thenif x = ">" thendelete char 1 of it-- nopeus, korkeus, vaihtelu, voima, alun painotusif it is not empty thenif lang is "finnish" then-- put "Janne"puhuJanne it,1,-1,3,4,0else-- put "Zippy"speak it,bg field "p1",bg field "p2"-10end ifend if--else-- vastausteksti eri äänelläif lang is "finnish" then-- put "Kristian"puhuKristian it,1,-1,3,4,0else-- put "Zippy2"speak it,bg field "p1",bg field "p2"end ifend ifend ifend ifend ifend ifif the mouse is down then exit sktalk-- delete line 1 of bg field "screen"end repeatput empty into bg field "Screen"end sktalkon groupglobal connectionID,cgroupput bg field "Gnumber" into gnumberput gnumber+1 into gnumberput Gnumber into bg field "Gnumber"if number of lines of bg field "Groups" < gnumber then ¬put 1 into gnumberput line gnumber of bg field "groups" into cgroupput cgroup into bg field "Gname"TCPSendsk connectionID,"GROUP" && cgroupreadnextput empty into field "screen"end groupon readnextglobal connectionIDsktalkTCPSendsk connectionID,"NEXT"TCPSendsk connectionID,"BODY"put empty into field "screen"end readnexton tcpsendsk c,rTCPSend c,r & return & linefeed-- put c && rend tcpsendskon openCardglobal connectionID, gnumberput 1 into gnumberput empty into connectionIDend openCardon closeCardglobal connectionIDif connectionID is not empty thenTCPRelease connectionIDput empty into connectionIDend ifend closeCardon closestackglobal connectionIDTCPRelease connectionIDend closestack</script>
